COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN STRING S,S1INTEGER I,J,K,CHR,SRCH
C00004 ENDMK
C⊗;
BEGIN STRING S,S1;INTEGER I,J,K,CHR,SRCH;
OPEN(1,"DSK",0,3,3,4096,0,0);
SETBREAK(1,'12,"","INS");
OUTSTR("FILE? ");LOOKUP(1,INCHWL,0);
S←INPUT(1,1);J←LENGTH(S);S1←"";
OUTSTR(S&"

SPACE TO ACCEPT CHR, `D' TO DELETE IT, OR `I' TO INSERT STRING BEFORE CHR,
`J' TO INSERT AFTER CHR, `G' TO GO TO END, `S' TO STEP TO CHR.......

"); SRCH←0;
FOR I←1 STEP 1 UNTIL J DO BEGIN
	IF ¬SRCH THEN OUTSTR(K←LOP(S)) ELSE SRCH←0;
	IF (CHR←INCHRW)="I" THEN
		S1←S1&INCHWL&K
	ELSE IF CHR="J" THEN 
		S1←S1&K&INCHWL
	ELSE IF CHR="D" THEN 
	   OUTSTR("/")
	ELSE IF CHR="G" THEN 
	BEGIN 
		S1←S1&K&S; OUTSTR(S);DONE;
	END ELSE IF CHR="S" THEN
	BEGIN   SRCH←TRUE;CHR←INCHRW;
		DO BEGIN
			S1←S1&K;
			OUTSTR(K←LOP(S));
		END UNTIL K=CHR;
	END
	ELSE S1←S1&K;
END;
CLOSE(1);
OUTSTR("

"&S1&"

OUT TO: ");
ENTER(1,INCHWL,0);
OUT(1,S1&'12);
CLOSE(1);
END;